Sub 매크로1()
'
' 매크로1 매크로
'

'
    Range("B4:B6").Select
    Selection.Copy
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub
